perm filename CHD.SCR[1,LCS] blob
sn#305747 filedate 1977-09-21 generic text, type T, neo UTF8
< CHD .SCR -- RANDOM NUMBER= 1
PLAY;
TOOTA 0.00 1.00 C 400.00 F1 F4 0.00
;PRINT P1;< TOOTA 1
TOOTB 0.00 1.00 E 400.00 F1 F4
;PRINT P1;< TOOTB 1
TOOTC 0.00 1.00 G 400.00 F1 F4
;PRINT P1;< TOOTC 1
TOOTD 0.00 1.00 AS 400.00 F1 F4
;PRINT P1;< TOOTD 1
TOOTE 0.00 1.00 D*2 400.00 F1 F4
;PRINT P1;< TOOTE 1
TOOTF 1.00 0.33 D 400.00 F1 F5
;PRINT P1;< TOOTF 2
TOOTA 1.00 0.33 F 400.00 F1 F5
;PRINT P1;< TOOTA 2
TOOTB 1.33 0.33 E 400.00 F1 F6
;PRINT P1;< TOOTB 3
TOOTC 1.33 0.33 G 400.00 F1 F6
;PRINT P1;< TOOTC 3
TOOTD 1.66 0.33 F 400.00 F1 F5
;PRINT P1;< TOOTD 4
TOOTE 1.66 0.33 A 400.00 F1 F5
;PRINT P1;< TOOTE 4
TOOTF 1.99 1.00 G 400.00 F1 F4
;PRINT P1;< TOOTF 5
TOOTA 1.99 1.00 B 400.00 F1 F4
;PRINT P1;< TOOTA 5
TOOTB 1.99 1.00 D*2 400.00 F1 F4
;PRINT P1;< TOOTB 5
TOOTC 1.99 1.00 F*2 400.00 F1 F4
;PRINT P1;< TOOTC 5
TOOTE 6.99 1.00 G/2 400.00 F1 F4
;PRINT P1;< TOOTE 7
TOOTF 6.99 1.00 B/2 400.00 F1 F4
;PRINT P1;< TOOTF 7
TOOTA 6.99 1.00 D 400.00 F1 F4
;PRINT P1;< TOOTA 7
TOOTB 6.99 1.00 F 400.00 F1 F4
;PRINT P1;< TOOTB 7
TOOTC 6.99 1.00 A 400.00 F1 F4
;PRINT P1;< TOOTC 7
TOOTD 7.99 0.34 A/2 400.00 F1 F5
;PRINT P1;< TOOTD 8
TOOTE 7.99 0.34 C 400.00 F1 F5
;PRINT P1;< TOOTE 8
TOOTF 8.33 0.33 B/2 400.00 F1 F6
;PRINT P1;< TOOTF 9
TOOTA 8.33 0.33 D 400.00 F1 F6
;PRINT P1;< TOOTA 9
TOOTB 8.66 0.33 C 400.00 F1 F5
;PRINT P1;< TOOTB 10
TOOTC 8.66 0.33 E 400.00 F1 F5
;PRINT P1;< TOOTC 10
TOOTD 8.99 1.00 D 400.00 F1 F4
;PRINT P1;< TOOTD 11
TOOTE 8.99 1.00 FS 400.00 F1 F4
;PRINT P1;< TOOTE 11
TOOTF 8.99 1.00 A 400.00 F1 F4
;PRINT P1;< TOOTF 11
TOOTA 8.99 1.00 C*2 400.00 F1 F4
;PRINT P1;< TOOTA 11
FINISH; < CHD .SCR